home *** CD-ROM | disk | FTP | other *** search
- #include "config.h"
- #include "amiga.h"
- #include "options.h"
- #include <stdlib.h>
- #include "memory.h"
- #include "custom.h"
- #include "newcpu.h"
- #include "cputbl.h"
- void op_8000(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ BYTE src = regs.d[srcreg];
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}
- void op_8010(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}
- void op_8018(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- BYTE src = get_byte(srca);
- { regs.a[srcreg] += (srcreg == 7) ? 2 : 1;
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}}
- void op_8020(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ regs.a[srcreg] -= (srcreg == 7) ? 2 : 1;
- { CPTR srca = regs.a[srcreg];
- BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}}
- void op_8028(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg] + (LONG)(WORD)nextiword();
- BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}
- void op_8030(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}}}
- void op_8038(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = (LONG)(WORD)nextiword();
- BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}
- void op_8039(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = nextilong();
- BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}
- void op_803a(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- srca += (LONG)(WORD)nextiword();
- { BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}}
- void op_803b(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { BYTE src = get_byte(srca);
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}}}
- void op_803c(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ BYTE src = nextiword();
- { BYTE dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (src) & 0xff;
- }}}}
- void op_8040(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ WORD src = regs.d[srcreg];
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}
- void op_8050(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}
- void op_8058(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { regs.a[srcreg] += 2;
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}}
- void op_8060(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ regs.a[srcreg] -= 2;
- { CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}}
- void op_8068(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg] + (LONG)(WORD)nextiword();
- WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}
- void op_8070(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}}}
- void op_8078(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = (LONG)(WORD)nextiword();
- WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}
- void op_8079(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = nextilong();
- WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}
- void op_807a(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- srca += (LONG)(WORD)nextiword();
- { WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}}
- void op_807b(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { WORD src = get_word(srca);
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}}}
- void op_807c(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ WORD src = nextiword();
- { WORD dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- regs.d[dstreg] &= ~0xffff; regs.d[dstreg] |= (src) & 0xffff;
- }}}}
- void op_8080(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ LONG src = regs.d[srcreg];
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}
- void op_8090(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}
- void op_8098(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- LONG src = get_long(srca);
- { regs.a[srcreg] += 4;
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}}
- void op_80a0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ regs.a[srcreg] -= 4;
- { CPTR srca = regs.a[srcreg];
- LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}}
- void op_80a8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg] + (LONG)(WORD)nextiword();
- LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}
- void op_80b0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}}}
- void op_80b8(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = (LONG)(WORD)nextiword();
- LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}
- void op_80b9(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = nextilong();
- LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}
- void op_80ba(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- srca += (LONG)(WORD)nextiword();
- { LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}}
- void op_80bb(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { LONG src = get_long(srca);
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}}}
- void op_80bc(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ LONG src = nextilong();
- { LONG dst = regs.d[dstreg];
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- regs.d[dstreg] = (src);
- }}}}
- void op_80c0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ WORD src = regs.d[srcreg];
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_80d0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_80d8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { regs.a[srcreg] += 2;
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}
- void op_80e0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ regs.a[srcreg] -= 2;
- { CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}
- void op_80e8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg] + (LONG)(WORD)nextiword();
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_80f0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}}
- void op_80f8(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = (LONG)(WORD)nextiword();
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_80f9(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = nextilong();
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_80fa(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- srca += (LONG)(WORD)nextiword();
- { WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}
- void op_80fb(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}}
- void op_80fc(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ WORD src = nextiword();
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- ULONG newv = (ULONG)dst / (UWORD)src;
- ULONG rem = (ULONG)dst % (UWORD)src;
- if (newv > 0xffff) { regs.v = regs.n = 1; } else
- {
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_8100(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ BYTE src = regs.d[srcreg];
- { BYTE dst = regs.d[dstreg];
- { UWORD newv = dst - src - regs.x;
- if ((newv & 0xF) > 9) newv-=6;
- regs.c = regs.x = (newv & 0x1F0) > 0x90;
- if (regs.c) newv -= 0x60;
- if (newv != 0) regs.z = 0;
- regs.d[dstreg] &= ~0xff; regs.d[dstreg] |= (newv) & 0xff;
- }}}}}
- void op_8108(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ regs.a[srcreg] -= (srcreg == 7) ? 2 : 1;
- { CPTR srca = regs.a[srcreg];
- BYTE src = get_byte(srca);
- { regs.a[dstreg] -= (dstreg == 7) ? 2 : 1;
- { CPTR dsta = regs.a[dstreg];
- BYTE dst = get_byte(dsta);
- { UWORD newv = dst - src - regs.x;
- if ((newv & 0xF) > 9) newv-=6;
- regs.c = regs.x = (newv & 0x1F0) > 0x90;
- if (regs.c) newv -= 0x60;
- if (newv != 0) regs.z = 0;
- put_byte(dsta,newv);
- }}}}}}}
- void op_8110(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ BYTE src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- BYTE dst = get_byte(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}
- void op_8118(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ BYTE src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- BYTE dst = get_byte(dsta);
- { regs.a[dstreg] += (dstreg == 7) ? 2 : 1;
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}}
- void op_8120(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ BYTE src = regs.d[srcreg];
- { regs.a[dstreg] -= (dstreg == 7) ? 2 : 1;
- { CPTR dsta = regs.a[dstreg];
- BYTE dst = get_byte(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}}
- void op_8128(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ BYTE src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg] + (LONG)(WORD)nextiword();
- BYTE dst = get_byte(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}
- void op_8130(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ BYTE src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- UWORD dstdp = nextiword();
- dsta += (LONG)(BYTE)(dstdp & 0xFF);
- { ULONG dstdpr = dstdp & 0x8000 ? regs.a[(dstdp & 0x7000) >> 12] : regs.d[(dstdp & 0x7000) >> 12];
- if (!(dstdp & 0x800)) dstdpr = (LONG)(WORD)dstdpr;
- dsta += dstdpr;
- { BYTE dst = get_byte(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}}}
- void op_8138(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- {{ BYTE src = regs.d[srcreg];
- { CPTR dsta = (LONG)(WORD)nextiword();
- BYTE dst = get_byte(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}
- void op_8139(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- {{ BYTE src = regs.d[srcreg];
- { CPTR dsta = nextilong();
- BYTE dst = get_byte(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((BYTE)(src)) == 0;
- regs.n = ((BYTE)(src)) < 0;
- put_byte(dsta,src);
- }}}}
- void op_8150(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ WORD src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- WORD dst = get_word(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}
- void op_8158(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ WORD src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- WORD dst = get_word(dsta);
- { regs.a[dstreg] += 2;
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}}
- void op_8160(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ WORD src = regs.d[srcreg];
- { regs.a[dstreg] -= 2;
- { CPTR dsta = regs.a[dstreg];
- WORD dst = get_word(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}}
- void op_8168(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ WORD src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg] + (LONG)(WORD)nextiword();
- WORD dst = get_word(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}
- void op_8170(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ WORD src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- UWORD dstdp = nextiword();
- dsta += (LONG)(BYTE)(dstdp & 0xFF);
- { ULONG dstdpr = dstdp & 0x8000 ? regs.a[(dstdp & 0x7000) >> 12] : regs.d[(dstdp & 0x7000) >> 12];
- if (!(dstdp & 0x800)) dstdpr = (LONG)(WORD)dstdpr;
- dsta += dstdpr;
- { WORD dst = get_word(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}}}
- void op_8178(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- {{ WORD src = regs.d[srcreg];
- { CPTR dsta = (LONG)(WORD)nextiword();
- WORD dst = get_word(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}
- void op_8179(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- {{ WORD src = regs.d[srcreg];
- { CPTR dsta = nextilong();
- WORD dst = get_word(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(src)) == 0;
- regs.n = ((WORD)(src)) < 0;
- put_word(dsta,src);
- }}}}
- void op_8190(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ LONG src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- LONG dst = get_long(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}
- void op_8198(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ LONG src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- LONG dst = get_long(dsta);
- { regs.a[dstreg] += 4;
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}}
- void op_81a0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ LONG src = regs.d[srcreg];
- { regs.a[dstreg] -= 4;
- { CPTR dsta = regs.a[dstreg];
- LONG dst = get_long(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}}
- void op_81a8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ LONG src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg] + (LONG)(WORD)nextiword();
- LONG dst = get_long(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}
- void op_81b0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- ULONG dstreg = (opcode & 7) >> 0;
- {{ LONG src = regs.d[srcreg];
- { CPTR dsta = regs.a[dstreg];
- UWORD dstdp = nextiword();
- dsta += (LONG)(BYTE)(dstdp & 0xFF);
- { ULONG dstdpr = dstdp & 0x8000 ? regs.a[(dstdp & 0x7000) >> 12] : regs.d[(dstdp & 0x7000) >> 12];
- if (!(dstdp & 0x800)) dstdpr = (LONG)(WORD)dstdpr;
- dsta += dstdpr;
- { LONG dst = get_long(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}}}
- void op_81b8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- {{ LONG src = regs.d[srcreg];
- { CPTR dsta = (LONG)(WORD)nextiword();
- LONG dst = get_long(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}
- void op_81b9(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 3584) >> 9);
- {{ LONG src = regs.d[srcreg];
- { CPTR dsta = nextilong();
- LONG dst = get_long(dsta);
- src |= dst;
- regs.v = regs.c = 0;
- regs.z = ((LONG)(src)) == 0;
- regs.n = ((LONG)(src)) < 0;
- put_long(dsta,src);
- }}}}
- void op_81c0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ WORD src = regs.d[srcreg];
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_81d0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_81d8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { regs.a[srcreg] += 2;
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}
- void op_81e0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ regs.a[srcreg] -= 2;
- { CPTR srca = regs.a[srcreg];
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}
- void op_81e8(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg] + (LONG)(WORD)nextiword();
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_81f0(UWORD opcode)
- {
- ULONG srcreg = (LONG)(BYTE)((opcode & 7) >> 0);
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = regs.a[srcreg];
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}}
- void op_81f8(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = (LONG)(WORD)nextiword();
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_81f9(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = nextilong();
- WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
- void op_81fa(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- srca += (LONG)(WORD)nextiword();
- { WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}
- void op_81fb(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ CPTR srca = m68k_getpc();
- UWORD srcdp = nextiword();
- srca += (LONG)(BYTE)(srcdp & 0xFF);
- { ULONG srcdpr = srcdp & 0x8000 ? regs.a[(srcdp & 0x7000) >> 12] : regs.d[(srcdp & 0x7000) >> 12];
- if (!(srcdp & 0x800)) srcdpr = (LONG)(WORD)srcdpr;
- srca += srcdpr;
- { WORD src = get_word(srca);
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}}}
- void op_81fc(UWORD opcode)
- {
- ULONG dstreg = (opcode & 3584) >> 9;
- {{ WORD src = nextiword();
- { LONG dst = regs.d[dstreg];
- if(src != 0){
- LONG newv = (LONG)dst / (WORD)src;
- UWORD rem = (LONG)dst % (WORD)src;
- if ((newv & 0xffff0000) && (newv & 0xffff0000) != 0xffff0000) { regs.v = regs.n = 1; } else
- {
- if (((WORD)rem < 0) != ((LONG)dst < 0)) rem = -rem;
- regs.v = regs.c = 0;
- regs.z = ((WORD)(newv)) == 0;
- regs.n = ((WORD)(newv)) < 0;
- newv = (newv & 0xffff) | ((ULONG)rem << 16);
- regs.d[dstreg] = (newv);
- }
- }
- }}}}
-